home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / e / gencodee_v21.lha / GenCodeE / E / Localized_DemoGenCodeE21b / Locale.e < prev   
Text File  |  1994-10-13  |  5KB  |  120 lines
  1. /****************************************************************
  2.    This file was created automatically by `FlexCat V1.3'
  3.    Do not edit by hand!
  4. ****************************************************************/
  5.  
  6.  
  7.     /* External modules */
  8. MODULE 'locale' , 'libraries/locale'
  9. MODULE 'utility/tagitem'
  10.  
  11.     /* Object definitions */
  12. OBJECT fc_type
  13.     id    :    LONG
  14.     str    :    LONG
  15. ENDOBJECT
  16.  
  17.     /* Global variables */
  18. DEF catalog_DemoGenCodeE : PTR TO catalog
  19. DEF msg_AppDescription : fc_type
  20. DEF msg_AppCopyright : fc_type
  21. DEF msg_WI_the_window : fc_type
  22. DEF msg_GR_grp_0Title : fc_type
  23. DEF msg_BT_put_constant_stringNotify0 : fc_type
  24. DEF msg_BT_put_constant_string : fc_type
  25. DEF msg_BT_put_variable : fc_type
  26. DEF msg_BT_return_id : fc_type
  27. DEF msg_BT_call_hook : fc_type
  28. DEF msg_LA_result : fc_type
  29. DEF msg_TX_result : fc_type
  30. DEF msg_BT_quit : fc_type
  31. DEF msg_Missing_Muimaster_Library : fc_type
  32. DEF msg_Missing_Icon_Library : fc_type
  33. DEF msg_Not_Enough_Memory : fc_type
  34. DEF msg_Not_Enough_Chip_Memory : fc_type
  35. DEF msg_Missing_Library : fc_type
  36. DEF msg_Arexx_Port : fc_type
  37. DEF msg_Internal_Problem : fc_type
  38. DEF msg_DGCE_Error : fc_type
  39. DEF msg_OK : fc_type
  40. DEF msg_Simple_OK : fc_type
  41. DEF msg_String_Variable_Put : fc_type
  42. DEF msg_Modified_ID_Returned : fc_type
  43. DEF msg_Modified_By_Hook : fc_type
  44. DEF msg_Modified_By_Arexx : fc_type
  45. DEF msg_Unknown_ARexx_Command : fc_type
  46.  
  47.  
  48.     /* Opening catalog procedure */
  49. PROC open_DemoGenCodeE_catalog( loc : PTR TO locale , language : PTR TO CHAR )
  50.  
  51.     DEF tag , tagarg
  52.  
  53.     msg_AppDescription.id := 0 ; msg_AppDescription.str := 'Application example for GenCodeE'
  54.     msg_AppCopyright.id := 1 ; msg_AppCopyright.str := 'Public Domain !'
  55.     msg_WI_the_window.id := 2 ; msg_WI_the_window.str := 'The window !'
  56.     msg_GR_grp_0Title.id := 3 ; msg_GR_grp_0Title.str := 'Click !'
  57.     msg_BT_put_constant_stringNotify0.id := 4 ; msg_BT_put_constant_stringNotify0.str := 'Constant string put !'
  58.     msg_BT_put_constant_string.id := 5 ; msg_BT_put_constant_string.str := 'Put _Constant String'
  59.     msg_BT_put_variable.id := 6 ; msg_BT_put_variable.str := 'Put _Variable'
  60.     msg_BT_return_id.id := 7 ; msg_BT_return_id.str := '_Return ID'
  61.     msg_BT_call_hook.id := 8 ; msg_BT_call_hook.str := 'Call _Hook'
  62.     msg_LA_result.id := 9 ; msg_LA_result.str := 'Result'
  63.     msg_TX_result.id := 10 ; msg_TX_result.str := 'Zzzzzzzzzzzzz'
  64.     msg_BT_quit.id := 11 ; msg_BT_quit.str := '_Quit'
  65.     msg_Missing_Muimaster_Library.id := 12 ; msg_Missing_Muimaster_Library.str := 'Can''t open muimaster.library !'
  66.     msg_Missing_Icon_Library.id := 13 ; msg_Missing_Icon_Library.str := 'Can''t open icon.library !'
  67.     msg_Not_Enough_Memory.id := 14 ; msg_Not_Enough_Memory.str := 'Not enough memory !'
  68.     msg_Not_Enough_Chip_Memory.id := 15 ; msg_Not_Enough_Chip_Memory.str := 'Not enough chip memory !'
  69.     msg_Missing_Library.id := 16 ; msg_Missing_Library.str := 'Can''t open a needed library !'
  70.     msg_Arexx_Port.id := 17 ; msg_Arexx_Port.str := 'Can''t create arexx port !'
  71.     msg_Internal_Problem.id := 18 ; msg_Internal_Problem.str := 'Internal problem !'
  72.     msg_DGCE_Error.id := 19 ; msg_DGCE_Error.str := 'DemoGenCodeE error !'
  73.     msg_OK.id := 20 ; msg_OK.str := '*_OK'
  74.     msg_Simple_OK.id := 21 ; msg_Simple_OK.str := '_OK'
  75.     msg_String_Variable_Put.id := 22 ; msg_String_Variable_Put.str := 'String variable put !'
  76.     msg_Modified_ID_Returned.id := 23 ; msg_Modified_ID_Returned.str := 'Modifed by ID returned !'
  77.     msg_Modified_By_Hook.id := 24 ; msg_Modified_By_Hook.str := 'Modified by called hook function !'
  78.     msg_Modified_By_Arexx.id := 25 ; msg_Modified_By_Arexx.str := 'Modifed by ARexx command change_text !'
  79.     msg_Unknown_ARexx_Command.id := 26 ; msg_Unknown_ARexx_Command.str := 'Unknown ARexx command recieved !'
  80.  
  81.     close_DemoGenCodeE_catalog()
  82.  
  83.     IF (localebase AND (catalog_DemoGenCodeE = NIL))
  84.  
  85.         IF language
  86.  
  87.             tag := OC_LANGUAGE
  88.             tagarg := language
  89.  
  90.         ELSE
  91.  
  92.             tag:= TAG_IGNORE
  93.  
  94.         ENDIF
  95.  
  96.         catalog_DemoGenCodeE := OpenCatalogA( loc , 'DemoGenCodeE.catalog' ,
  97.                                     [    OC_BUILTINLANGUAGE , 'english' ,
  98.                                         tag , tagarg ,
  99.                                         OC_VERSION , 0 ,
  100.                                         TAG_DONE    ])
  101.  
  102.     ENDIF
  103.  
  104. ENDPROC
  105.     
  106.     /* Closing catalog procedure */
  107. PROC close_DemoGenCodeE_catalog()
  108.  
  109.     IF localebase THEN CloseCatalog( catalog_DemoGenCodeE )
  110.     catalog_DemoGenCodeE := NIL
  111.  
  112. ENDPROC
  113.  
  114.  
  115.     /* Procedure which returns the correct string according to the catalog */
  116. PROC get_DemoGenCodeE_string( fcstr : PTR TO fc_type ) RETURN IF catalog_DemoGenCodeE THEN GetCatalogStr( catalog_DemoGenCodeE , fcstr.id , fcstr.str ) ELSE fcstr.str
  117. /****************************************************************
  118.    End of the automatically created part!
  119. ****************************************************************/
  120.